#'
#' random labeling a mark
#'
#'
#' 
#' 
#' @export
random_mark=function(data,markname,...){
  seli=match(markname,colnames(data))
  data[,seli]=sample(data[,seli,drop=TRUE])
  return(data)
}